home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 24 / AACD 24.iso / AACD / Online / TruncateMail / TruncateFolder.yam < prev    next >
Text File  |  2001-07-15  |  1KB  |  32 lines
  1. /********************************************
  2.  *     TruncateFolder arexx script v1.2     *
  3.  *     Author: Marek "March" Szyprowski     *
  4.  *       E-mail: march@staszic.waw.pl       *
  5.  *            Date: 15.07.2001              *
  6.  * * * * * * * * * * * ** * * * * * * * * * *
  7.  * Requiments: Yam 2.3+, TruncateMail v3.0+ *
  8.  ********************************************
  9.  * History:                                 *
  10.  * 1.2 - fixed script to use smather way of *
  11.  *       getting the folder's path          *
  12.  *       (thanks to Rafal Mazurkiewicz)     *
  13.  * 1.1 - fixed problems with YAM 2.3+, does *
  14.  *       not work with older version of YAM *
  15.  * 1.0 - first, initial realase             *
  16.  ********************************************/
  17.  
  18. OPTIONS RESULTS
  19.  
  20. ADDRESS YAM MailInfo STEM mail.
  21. mpath = mail.filename
  22.  
  23. dirpath = strip(left(mpath, lastpos('/', mpath) ),'T', '/')
  24.  
  25. text = "Processing mail files in dir '"||dirpath||"'..."
  26.  
  27. ADDRESS YAM 'APPBUSY "'||text||'"'
  28.  
  29. ADDRESS COMMAND 'truncatemail '||dirpath||'/0#? CHECKDATE ONLYHEADERS'
  30.  
  31. ADDRESS YAM APPNOBUSY
  32.